home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / DROPFILE.ZIP / DEMO / DRAGDROP.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1996-07-30  |  2.6 KB  |  112 lines
  1. unit Dragdrop;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Dropfile, ExtCtrls, Menus, ComCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     ComboBox1: TComboBox;
  13.     FontDialog1: TFontDialog;
  14.     PopupMenu1: TPopupMenu;
  15.     Font1: TMenuItem;
  16.     PrinterSetup1: TMenuItem;
  17.     Print1: TMenuItem;
  18.     N1: TMenuItem;
  19.     Exit1: TMenuItem;
  20.     PrintSetup: TPrinterSetupDialog;
  21.     FileDropEnabled1: TMenuItem;
  22.     N2: TMenuItem;
  23.     DropFile1: TDropFile;
  24.     Memo1: TRichEdit;
  25.     PrintDialog1: TPrintDialog;
  26.     WordWrap1: TMenuItem;
  27.     N3: TMenuItem;
  28.     procedure DropFile1DropFile(Sender: TObject);
  29.     procedure ComboBox1Change(Sender: TObject);
  30.     procedure Font1Click(Sender: TObject);
  31.     procedure PrinterSetup1Click(Sender: TObject);
  32.     procedure Exit1Click(Sender: TObject);
  33.     procedure PopupMenu1Popup(Sender: TObject);
  34.     procedure FileDropEnabled1Click(Sender: TObject);
  35.     procedure Print1Click(Sender: TObject);
  36.     procedure WordWrap1Click(Sender: TObject);
  37.     procedure Panel1Resize(Sender: TObject);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  43.  
  44. var
  45.   Form1: TForm1;
  46.  
  47. implementation
  48.  
  49. {$R *.DFM}
  50.  
  51. procedure TForm1.DropFile1DropFile(Sender: TObject);
  52. begin
  53.   combobox1.items := dropfile1.filelist;
  54.   combobox1.itemindex := 0;
  55.   combobox1change(self);
  56. end;
  57.  
  58. procedure TForm1.ComboBox1Change(Sender: TObject);
  59. begin
  60.   memo1.lines.loadfromfile(combobox1.items[combobox1.itemindex]);
  61. end;
  62.  
  63. procedure TForm1.Font1Click(Sender: TObject);
  64. begin
  65.   FontDialog1.Font := Memo1.Font;
  66.   if FontDialog1.Execute then Memo1.Font := FontDialog1.Font;
  67. end;
  68.  
  69. procedure TForm1.PrinterSetup1Click(Sender: TObject);
  70. begin
  71.   PrintSetup.Execute;
  72. end;
  73.  
  74. procedure TForm1.Exit1Click(Sender: TObject);
  75. begin
  76.   application.terminate;
  77. end;
  78.  
  79. procedure TForm1.PopupMenu1Popup(Sender: TObject);
  80. begin
  81.   Print1.enabled := Memo1.Lines.Count > 0;
  82. end;
  83.  
  84. procedure TForm1.FileDropEnabled1Click(Sender: TObject);
  85. begin
  86.   with FileDropEnabled1 do begin
  87.     Checked := not Checked;
  88.     DropFile1.Active := Checked;
  89.   end;
  90. end;
  91.  
  92. procedure TForm1.Print1Click(Sender: TObject);
  93. begin
  94.   if PrintDialog1.Execute then
  95.     Memo1.Print(combobox1.items[combobox1.itemindex]);
  96. end;
  97.  
  98. procedure TForm1.WordWrap1Click(Sender: TObject);
  99. begin
  100.   with WordWrap1 do begin
  101.     Checked := not Checked;
  102.     Memo1.WordWrap := Checked;
  103.   end;
  104. end;
  105.  
  106. procedure TForm1.Panel1Resize(Sender: TObject);
  107. begin
  108.   ComboBox1.Width := Panel1.Width - 2 - 2 * ComboBox1.Left;
  109. end;
  110.  
  111. end.
  112.